home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / auto-chargeur (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  51 lines
  1. 100 POKE56,PEEK(56)-1:CLR:A$="XXXXXXXXXXXXXXXX":T$="P":DIMD$(244),F$(244)
  2. 105 T=828:FOR I=0TO97:READA:POKET+I,A:NEXT
  3. 110 PRINT"[147]":PRINTCHR$(14):Y=1
  4. 120 PRINT"[147]     [208]ROGRAMME AUTO-CHARGEUR ([212][208][213][199])"
  5. 130 PRINT"":M=1:CL=48:CH=49:SP=-1:I$="0"
  6. 140 PRINT"[145]           [213]N INSTANT, S.V.P.
  7. 150 DN$[178]I$:I$[178]"":[159]2,8,0,"$"[170]DN$:X[178]0
  8. 160 [151]845,1:[158](828):DD$[178]A$[170]"":[151]845,2
  9. 170 [158](828):[139]ST[179][177]0[167]190
  10. 180 X[178]X[170]1:D$(X)[178]A$[170]"":F$(X)[178]T$[170]"":[137]170
  11. 190 [160]2:[153]"ON    (null)OM DU DISQUE = "[200](DD$[170]"                ",16)"WAIT  ":[153]
  12. 200 [129]J[178]1[164]26:[151]199,0
  13. 210 [153][199](J[170]64)") ";:[139]F$(Y)[179][177]"P"[167][151]199,1
  14. 220 [153][200](D$(Y)[170]"                 ",17);:Y[178]Y[170]1:[130]J
  15. 230 [153]:[153]"    ASCAITES (null)VAL(null)(null)(null)(null)WAIT POUR CONTINUER.ONONON"
  16. 240 [153]"(null)OTRE CHOIX? ";:M[178]1:CL[178]65:CH[178]90:SP[178]13:[141]350
  17. 250 [139]I$[178][199](13)[175]Y[179][178]X[167][153]"":[137]200
  18. 260 [139]I$[178][199](13)[175]Y[177]X[167]Y[178]1:[153]"":[137]200
  19. 270 C[178]([198](I$)[175]63)[171]1:S[178]Y[171]26[170]C
  20. 280 [139]D$(S)[179][177]""[175]F$(S)[178]"P"[167]300
  21. 290 [153]"":Y[178]1:[137]200
  22. 300 [153]"LOADCHARGEMENT EN COURS: "D$(S)
  23. 310 [153]"L(null)"[199](34)DN$":"D$(S)[199](34)",8"
  24. 320 [153]"RUN"
  25. 330 [151]198,2:[151]631,13:[151]632,13:[151]56,[194](56)[170]1:[156]
  26. 335 [151]53272,21
  27. 340 [128]
  28. 350 I$[178]""
  29. 360 [161]A$:[139]A$[179][177]""[167]410
  30. 370 [139]TM[177]TI[167]360
  31. 380 [139]F[178]1[167][153]" CMD";:F[178]0:[137]400
  32. 390 [153]" WAITCMD";:F[178]1
  33. 400 TM[178]TI[170]20:[137]360
  34. 410 A$[178][199]([198](A$)[175]127):[139]A$[178][199](13)[175]SP[177]0[167]460
  35. 420 [139]A$[178][199](20)[175][195](I$)[177]0[167]500
  36. 430 [139]A$[178][199](13)[175][195](I$)[177]0[167]490
  37. 440 [139][198](A$)[179]32[167]360
  38. 450 [139]([198](A$)[179]CL[176][198](A$)[177]CH)[175][198](A$)[179][177]SP[167]360
  39. 460 [139][198](A$)[178]SP[167]I$[178]I$[170]A$:[137]490
  40. 470 [139][195](I$)[178]M[167]360
  41. 480 [153]A$" CMD";:I$[178]I$[170]A$:[137]360
  42. 490 [153]" ":[142]
  43. 500 [153]A$;:I$[178][200](I$,[195](I$)[171]1):[137]360
  44. 1000 [131] 160,3,177,45,133,251,200,177,45,133,252,162,2,32,198,255
  45. 1001 [131] 162,2,32,228,255,208,251,202,208,248,32,228,255,166,144,224
  46. 1002 [131] 0,208,53,201,34,208,243,160,0,32,228,255,201,34,240,5
  47. 1003 [131] 145,251,200,208,244,152,160,2,145,45,32,228,255,201,32,240
  48. 1004 [131] 249,72,160,10,177,45,133,251,200,177,45,133,252,104,160,0
  49. 1005 [131] 145,251,169,1,160,9,145,251,165,144,72,32,204,255,104,133
  50. 1006 [131] 144,96,84
  51.